home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1997 February / Computer Life February 1997.iso / TELME / COMMS / DMOD0011.SRP < prev    next >
Text File  |  1996-06-04  |  4KB  |  209 lines
  1. rem Copyright (c) PhoneLink plc
  2. rem direct connect script (8/10/95)DMOD0011.srp
  3. rem Changes to version 2 include faster disconnect methods
  4. rem and general fine tuning of timeouts!
  5. rem dacom gold card V32bis
  6.  
  7. label InitDevice
  8. echo off
  9. flush
  10. echo script[56]  
  11. send "atchar(13)"  
  12. timeout 2,modem_fail
  13. find    "OK"
  14.  
  15. label OffToGate
  16. rem Offline to Gate (also contains Pad to Gate)
  17. echo off
  18. flush
  19. echo script[57]
  20. send    "at{InitModemStr}char(13)"
  21. timeout 2,modem_fail
  22. find    "OK"
  23. send   "atd{DialMode}^{PreTel}{SiteTel}{PostFix}char(13)"
  24. echo script[52]...
  25. timeout {DialTimeout},connect_fail
  26. finderr 0,BUSY,busy
  27. finderr 103,NO DIALTONE,connect_fail
  28. finderr 0,NO CARRIER,no_carrier  
  29. find "CONNECT"
  30. echo script[53] 
  31. send "char(13)"   
  32. timeout 2,Bad_PadPrompt
  33. finderr 0,PAD>,Good_PadPrompt
  34. find "ZZZ"
  35. label Bad_PadPrompt
  36. echo script[58]
  37. send "char(13)"
  38. timeout 2,pad_fail
  39. find "PAD>"
  40. label Good_PadPrompt
  41. label PadToGate
  42. echo off
  43. send    "SER{SUB}char(13)"
  44. timeout 2,nua_bad1
  45. finderr 0,COM,nua_good
  46. find    "ZZZ"
  47. label nua_bad1
  48. send    "SER{SUB}char(13)"
  49. timeout 2,nua_bad2
  50. finderr 0,COM,nua_good
  51. find    "ZZZ"
  52. label nua_bad2
  53. send    "SER{SUB}char(13)"
  54. timeout 2,nua_fail
  55. find    "COM"
  56. label nua_good
  57. echo script[54].
  58. end
  59.  
  60. label GateToPad
  61. echo off
  62. send    "char(16)CLRchar(13)"
  63. timeout 2,ctrl_p_clear_fail
  64. find    "CONF"
  65. echo script[91]...
  66. end
  67.  
  68. label GateToOff
  69. label PadToOff
  70. echo off
  71. send   "+"
  72. mwait 100
  73. send   "+"
  74. mwait 100
  75. send   "+"
  76. timeout 2,hang_fail_retry
  77. find    "OK"
  78. echo script[97]
  79. send   "at{TermModemStr}char(13)"
  80. rem The following arises as a result of the inability
  81. rem of the gold card to disconnect cleanly when talking 
  82. rem to the PSL over MNP4.
  83. wait 1
  84. send "a"
  85. timeout 1,no_ok
  86. finderr 0,OK,good_ok
  87. find    "zz"
  88. label good_ok
  89. echo script[99].
  90. end
  91.  
  92. label modem_offline
  93. echo off
  94. send   "+"
  95. mwait 100
  96. send   "+"
  97. mwait 100
  98. send   "+"
  99. timeout 2,hang_fail_retry
  100. find    "OK"
  101. echo script[97]
  102. send   "at{TermModemStr}char(13)"
  103. rem The following arises as a result of the inability
  104. rem of the gold card to disconnect cleanly when talking 
  105. rem to the PSL over MNP4.
  106. wait 1
  107. send "a"
  108. timeout 1,fno_ok
  109. finderr 0,OK,fgood_ok
  110. find    "zz"
  111. label fgood_ok
  112. echo script[99].
  113. abort
  114.  
  115. label fno_ok
  116. wait 1
  117. send "a"
  118. timeout 1,fno_ok_2
  119. finderr 0,OK,fgood_ok
  120. finderr 0,NO CARRIER,fgood_ok
  121. find "zz"
  122. abort
  123.  
  124. label fno_ok_2
  125. wait 1
  126. send "a"
  127. timeout 1,fno_ok_3
  128. finderr 0,OK,fgood_ok
  129. finderr 0,NO CARRIER,fgood_ok
  130. find "zz"
  131. abort
  132.  
  133. label fno_ok_3
  134. wait 1
  135. send "a"
  136. timeout 1,hang_fail
  137. finderr 0,OK,fgood,ok
  138. finderr 0,NO CARRIER,fgood_ok
  139. find "zz"
  140. abort
  141.  
  142. label no_ok
  143. wait 1
  144. send "a"
  145. timeout 1,no_ok_2
  146. finderr 0,OK,good_ok
  147. finderr 0,NO CARRIER,good_ok
  148. find "zz"
  149. abort
  150.  
  151. label no_ok_2
  152. wait 1
  153. send "a"
  154. timeout 1,no_ok_3
  155. finderr 0,OK,good_ok
  156. finderr 0,NO CARRIER,good_ok
  157. find "zz"
  158. abort
  159.  
  160. label no_ok_3
  161. wait 1
  162. send "a"
  163. timeout 1,hang_fail
  164. finderr 0,OK,good,ok
  165. finderr 0,NO CARRIER,good_ok
  166. find "zz"
  167. abort
  168.  
  169. label hang_fail_retry
  170. send   "at{TermModemStr}char(13)char(13)" 
  171. timeout 2,hang_fail
  172. finderr 0,NO CARRIER,fgood_ok
  173. find    "OK"
  174. echo script[99].
  175. abort
  176.  
  177. label hang_fail
  178. echo script[98].
  179. abort
  180.  
  181. label modem_fail
  182. echo script[23]
  183. goto modem_offline
  184.  
  185. label connect_fail
  186. echo script[1]
  187. goto modem_offline
  188.  
  189. label busy
  190. echo script[2]
  191. goto modem_offline
  192.  
  193. label no_carrier
  194. echo script[3]
  195. goto modem_offline
  196.  
  197. label nua_fail
  198. echo script[22]
  199. goto modem_offline
  200.  
  201. label ctrl_p_clear_fail
  202. echo script[14]
  203. goto modem_offline
  204.  
  205. label command_mode_fail
  206. echo script[15]
  207. goto modem_offline
  208.  
  209.